home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / dev / Language / ace / include / fexists.h < prev    next >
Text File  |  1994-10-22  |  335b  |  20 lines
  1. { FEXISTS(x$) -- returns true if file exists otherwise false.
  2.  
  3.   Author: David J Benn
  4.     Date: 28th February 1993,
  5.       2nd January 1994 }
  6.         
  7. sub fexists(x$)
  8.   if x$="" then 
  9.     fexists=0
  10.   else
  11.     open "I",#255,x$
  12.     if handle(255) <> 0& then 
  13.       close #255
  14.       fexists=-1
  15.     else 
  16.       fexists=0
  17.     end if
  18.   end if
  19. end sub
  20.